home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / kcl / kcl.lha / lsp / defstruct.data < prev    next >
Text File  |  1986-07-03  |  3KB  |  154 lines

  1.           
  2. #(
  3. #!
  4. (lisp::in-package 'user::lisp)
  5. #!
  6. (lisp::export 'lisp::defstruct)
  7. #!
  8. (lisp::in-package 'lisp::system)
  9. (lisp::optimize (lisp::safety 2) (lisp::space 3))
  10. lisp::defun
  11. (system::x)
  12. system::structure-ref
  13. system::x
  14. lisp::quote
  15. system::putprop
  16. 'system::structure-access
  17. lisp::defsetf
  18. (system::x)
  19. (system::v)
  20. lisp::list
  21. 'system::structure-set
  22. system::v
  23. lisp::remprop
  24. 'system::setf-update-fn
  25. 'system::setf-lambda
  26. 'system::setf-documentation
  27. lisp::vector
  28. (system::x)
  29. lisp::elt
  30. 'system::structure-access
  31. (system::x)
  32. (system::v)
  33. 'system::elt-set
  34. 'system::setf-update-fn
  35. 'system::setf-lambda
  36. 'system::setf-documentation
  37. (system::x)
  38. system::list-nth
  39. 'system::structure-access
  40. (system::x)
  41. (system::v)
  42. 'system::rplaca-nthcdr
  43. 'system::setf-update-fn
  44. 'system::setf-lambda
  45. 'system::setf-documentation
  46. "~S is an illegal structure type."
  47. lisp::&aux
  48. lisp::&optional
  49. "#.lambda-list-keywords"
  50. lisp::&rest
  51. :key
  52. lisp::&key
  53. system::make-structure
  54. "~S is an illegal structure type"
  55. "An illegal BOA constructor."
  56. (system::x)
  57. system::copy-structure
  58. ((system::x) (lisp::copy-seq system::x))
  59. ((system::x) (lisp::copy-list system::x))
  60. "~S is an illegal structure type."
  61. (system::x)
  62. lisp::and
  63. (system::structurep system::x)
  64. lisp::do
  65. ((system::n (system::structure-name system::x)))
  66. ((lisp::null system::n) lisp::nil)
  67. lisp::when
  68. lisp::eq
  69. system::n
  70. (lisp::return lisp::t)
  71. (lisp::setq system::n (lisp::get system::n 'system::structure-include))
  72. "The structure should be named."
  73. (system::x)
  74. (lisp::vectorp system::x)
  75. lisp::>
  76. (lisp::length system::x)
  77. "The structure should be named."
  78. 0
  79. (system::x)
  80. (lisp::consp system::x)
  81. (lisp::car system::x)
  82. (system::x)
  83. system::i
  84. (lisp::1- system::i)
  85. (system::y system::x (lisp::cdr system::y))
  86. (lisp::= system::i 0)
  87. (lisp::consp system::y)
  88. (lisp::car system::y)
  89. (lisp::unless (lisp::consp system::y) (lisp::return lisp::nil))
  90. "~S is an illegal structure type."
  91. "~S is an illegal structure slot option."
  92. "~S is an illegal structure slot option."
  93. "~S is an illegal include slot-description."
  94. "-"
  95. "MAKE-"
  96. "COPY-"
  97. "-P"
  98. ""
  99. system::is-a-structure
  100. "~S is an illegal included structure."
  101. "~S is an illegal defstruct option."
  102. "~S is an illegal defstruct option."
  103. system::structure-type
  104. "~S is an illegal structure include."
  105. system::structure-offset
  106. system::structure-slot-descriptions
  107. "Contradictory constructor options."
  108. "~S is an illegal structure predicate."
  109. "An print function is supplied to a typed structure."
  110. lisp::progn
  111. lisp::defstruct
  112. 'system::defstruct-form
  113. (lisp::t 'system::is-a-structure)
  114. 'system::structure-slot-descriptions
  115. 'system::structure-include
  116. 'system::structure-print-function
  117. 'system::structure-type
  118. 'system::structure-named
  119. 'system::structure-offset
  120. 'system::structure-constructors
  121. 'system::structure-documentation
  122. lisp::*read-suppress*
  123. "An extra argument was supplied for the #S readmacro."
  124. "~S is not a structure."
  125. system::structure-constructors
  126. "The structure ~S has no structure constructor."
  127. lisp::keyword
  128. #\#
  129. #\s
  130. system::sharp-s-reader
  131. #\S
  132. lisp::proclaim
  133. system::make-access-function
  134. system::make-constructor
  135. system::illegal-boa
  136. system::make-copier
  137. system::make-predicate
  138. system::parse-slot-description
  139. system::overwrite-slot-descriptions
  140. lisp::set-dispatch-macro-character
  141. system::string-concatenate
  142. :type
  143. :read-only
  144. lisp::car
  145. :conc-name
  146. :constructor
  147. :copier
  148. :predicate
  149. :include
  150. :print-function
  151. :initial-offset
  152. :named
  153. )
  154.